home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / AVOGADRO / CHEMISTRY / MOLWEIGHT / !MolWeight_!Run < prev    next >
Encoding:
Text File  |  1996-02-23  |  809 b   |  30 lines
  1. | > !MolWeight.!Run
  2. |
  3. | Run File for Molecular Weight
  4. |
  5. | by Chris Johnson
  6. |
  7. IconSprites <Obey$Dir>.!Sprites
  8. |
  9. | Find path to file
  10. Set MolWeight$Dir <Obey$Dir>
  11. |
  12. set temp$flag 1
  13. RMEnsure CJWimpUtil 0 set temp$flag 0
  14. RMEnsure CJWimpUtil 0.15 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
  15. RMEnsure CJWimpUtil 0.15 Error You need the CJWimpUtil module (0.15 or later) installed
  16. |
  17. set temp$flag 1
  18. RMEnsure ABCLibrary 0 set temp$flag 0
  19. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
  20. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  21. unset temp$flag
  22. |
  23. |
  24. | Check memory allocation
  25. WimpSlot -min 80K -max 80K
  26. |
  27. |
  28. | Now start program
  29. Run <MolWeight$Dir>.!RunImage
  30.